Dim fso,fld
Set fso=CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
configpath = objShell.CurrentDirectory  
configpath = configpath & "\config.ini"
If (fso.FileExists("configpath")) Then
msgbox("Folder exists.")
else
Set fso=CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
configpath = configpath & "\config.ini"
Dim fso,TestFile
Set TestFile=fso.CreateTextFile("configpath",Ture)
TestFile.WriteLine("[system]" & vbcrlf & "local_ip=192.168.2.110")
TestFile.Close
End If